better comp-function-call-remove

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 073af957bed6f545c5981490356b2e33ac08c153..7408034b93255c1f386f72195d614d33a9c523ac 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1524,8 +1524,9 @@ This can run just once."
   (when (and (get f 'pure) ; Can we just optimize pure here? See byte-opt.el
              (cl-every #'comp-mvar-const-vld args))
     (let ((val (apply f (mapcar #'comp-mvar-constant args))))
+      ;; See `comp-emit-set-const'.
       (setf (car insn) 'setimm
-            (caddr insn) (comp-add-const-to-relocs val)))))
+            (cddr insn) (list (comp-add-const-to-relocs val) val)))))
 
 (defun comp-propagate-insn (insn)
   "Propagate within INSN."